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MODULE SUBMIT (% 
tT = 'y04-600" 


'@ 
‘e COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


: AUTHOR: M. Jack, CREATION DATE: 30-Apr-1982 
i MODIFIED BY: 


v03-009 RRBOO21 Rowland R. Bradle 27-Aug-1984 
teoltow the submission o genmand presedures and 
one A int jobs from sequent st devices. Avoids 
blem as ay in Crash 201 Ssymptont in RUAST 9 ON 
@ do not support sharing sequen 
cigen ue the error logging associated w 


4 
8 a 
DOS ® 

10 0010 '® DIGITAL eu UIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 

3 ppd :* ALL RIGHTS RESERVED ® 
M ® 

ig 0018 'e re SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

14 0014 '@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bacen NSE AND WITH THE * 

15 0015 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY guttee 

1 p18 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

1 001 '@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

18 0018 TRANSFERRED. * 
HM ® 

0 0 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

1 0021 'e AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

¢ 8 ¢ :* CORPORATION. . 
° a 

4 88 4 ' DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS & 

; +4 § :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

7 00 § ie ° 

8 00. & See R RARER AAAAAAAAAAAAERAEAAAAAA AAA AAA AA AAA AAAAAAAEAAAAEAAEEEATAARAAEEREE 

0 $085 'o¢ 

1 09 1 i FACILITY: 

§ oe § i PRINT and SUBMIT commands. 

4 8 4 i ABSTRACT: 

5 Op ee This module implements the PRINT and SUBMIT commands. 

7 ist i ENVIRONMENT: 

8 00 i VAX/VMS user mode. 

9 003 lee 
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necessary to be able to override the queue default. 


V03-007 RRBOO2Z0 Rowland R. Bradley Very un-1984 
Add Part for — connand qualifi 
s is a late 


to allow dumb user file f 


er processing 
eres sk for by customers 


Add enhanced error message handing for /REMOTE 
and remove redundant error message when no files 


in the job. Add REMOINSF error code. 


v03-006 pL Steey Benn Schreiber 31-Jan-1984 
Use new LIBSFIND_FILE argument. 

vO3-005 MLJ0115 Martin L. Jack, 29-Jul-1983 
Changes for job controller baselevel. 

v03-004 MLJ0113 Martin L. Jack, 26-May-1983 
Changes for job senbrot tee baselevel. 

vO3-003 MLJ0112 Martin L. Jack, 29-Apr-1983 
Changes for job controller baselevel. 

v03-002 MLJ0109 Martin L. Jack, 13-Apr-1983 


Disallow node name without /REMOTE. 


v03-001 MLJ0106 Martin L. Jack, 11-Mar-1983 5:03 


Changes for job controller baselevel. 


: 
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ee ee ee ee ee em em ee ee ek a a ed ed ed od 8d dd ed od = = od = 


et on Some boca I-Recia (0:46) AGUA Meade: B54 


LIBRARY ‘SYSSLISRARY:STARLET'; 
REQUIRE ‘SRC$:JBCPRSDEF'; 
LITERAL 
TRUE= 1, 
FALSE= 0; 
STRUCTURE 
BBLO KhO.P.S.E:03s 
(BBLOCK + 0)<P,S,E>; 
PSECT 
CODE= CODE, 
PLIT= CODE, 
= DATA, 
GLOBAL= DATA; 


FORWARD coun 


GET COMM QUAL_CONTEXT: NOVALUE, 
EXIT HANDLER: NOVALUE, 


EXTERNAL ROUTINE 
CLISGET_VALUE: ADDRESSING mn eK 


t 
CLISPRESENT: ADDRESSING en ) 
aie if entity is present 
LIBSFIND_FILE: ADDRESSING “MODE (GENERAL * 
' Scan for wildcard files 
LIBSSCOPY_DXDX: ADDRESSING ~MODE (GENERAL), 


LIBSQUAL_FILE_MATCH: ADDRESSING pone Een RAL, 


parameter or qualifier value 


POTOPIPOPIPIPINIPIPINIPINIPIPYIPUNPINPIPIPIPIPIPINPINPINIPINININININININ = 


MUUANURUVUNNNNS 3333 3533 3OOS90SS0SsS 
Vit 2 O-DO9 NOUNS UW OOOO NAW EU ODE NOR Gt ooo ed 


ee et a ed ee eB ed eh ed ed td ed td td ts a ot I 8 8 td 8 oo td 8 od) to 


SOOOCCCCSoCooooooooooooo 


3 tch common qualifiers 
0 LIBSQUAL_FILE_PARSE: ADDRESSING ODE (GENERAL: 
8 i etup common qualifiers 
9 EXTERNAL LITERAL 
rt Common Qualifier return status values. 
rt} L18$ QUIPRO, !' Quit Processing 
4 LIBS_NEGANS, ' Negative Answer for this file 
rt} L18$- “FILFAIMAT, ! File failed to meet criteria 
$8 Parallel PRINT and SUBMIT messages. 
$8 PRINTS_ FACILITY, UBMITS_FACILITY, 
4 PRINT$_ADDFIL, SUBMITS-ADDFIL, 
20 PRINTS$_CREJOB SUBMIT Sites 
1 PRINTS_INVFILSPE, SUBMITS~INVFILSPE, 
52 PRINTS" REMOINSF, SUBMITS" REMOINSF, 


ae Oh hee He et 
CLIUTL.SRCJSUBMIT .B32; 
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04-000 


! Context for Common Qualifiers 
severe error status 


att otf 


y messages. 
BBLOCK 
0 


SUBMIT$_INVLOGF IL; 


QUAL CONTEXT; 
EXIT STATUS: 


! SUBMIT onl 
FLAGS: 

P 

I 

R 

N 


La 


i cone aeration aetna ane Seam eee: Seek eek eee eee cee oe eee ae ae 


GLOBAL 


MFTNOr OM-— NUM TNOKR.ODO 
mn WOOO0000000Kr 
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SSS SRA AA DOO 
Se eel eel eel el eel el ee el el ee ee el ee eel ee el el 


eh nat cme, VarSep-19B6 12:09:55 EeLiutcsneSsuanlt-83¢; 


ROUTINE SUBMIT= 
144 


] 
FUNCTIONAL DESCRIPTION: 
This routine is the main entry point for the PRINT and SUBMIT commands. 


INPUT PARAMETERS: 
Standard VMS activation parameters (not used). 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

sath | VALUE : 


ompletion status. 
SIDE EFFECTS: ~ 
NONE 
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1 
80 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
CNT: INITIAL ! Number of files in {> 
tiee-seemnl REF BB ! Context for LIBSFIND FILE 


0 (0), ! 
03 OcK ! 
03 . : BBLOCKCDSC$C_S_BLN],  ! Result of LIBSFIND FILE 
03 FIND DEFAULT: BBLOCKLDSCS$C_S_BLNJ, ! Default file for LIBSFIND_FILE 
03 VALUE_DESC: BBLOCKCDSC$C_S_BLNJ, ' Qualifier value descriptor 
03 INPUT_DESC: BBLOCKCOSCSC_S_BLNIJ, ! Input file specification 
0306 LOG_FILE DESC: BBLOCKCD gsc S BLN ‘ ! Log file descriptor 
00 0307 JSM_BUF FER: VECTORC152,BYTE), ! Job status message 
01 0308 JSM_DESC: vECcToRe2 ! Descriptor for status message 
0¢ 0309 ITEM_BUFFER:  BBLOCKEI 4}. i $SNDJBC item buffer 
0 0310 DATA_BUFFER: BBLOCK 19 4], ! $SNDJBC data buffer 
04 0311 EXIT_BLOCK: vVECTOR(S); ! Exit control block 
05 O38 MACRO 
4] > HF SD_CA] = BIND ZNAME('D_", A) = SDESCRIPTOR(A) 2%; 
08 P O35 ~"'$vERB’, 
09 P 18 "PI 
10 P 031 "AFTER', 
11 P \8 *BURST' 
le P 031 CHARACTERISTICS’, 
1 P 0 *CLI' 
14 P 0321 "coPiés® 
15 P § i 
6 P 
1 P 4 
18 re 5 
1G p $ 
20 Pp 
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DOSSOSOSDSOOOOCOSOOOOSOOOO 
BEES 
wm 


"HEADER’, 
"HOLD 
IDENTIFY’ 


"WSDEFAULT’, 

"WSEXTENT', 

"WSQUOTA'): 

ST.ALL'), 
" STONE"), 
“ONE $ G 
ae ALL= $D 

BUILTIN 
DS pa 


: Initialize. 


éx eit Prats = _SSS ~NORMAL ; 
FP = HANDL 


NPU = 0 
NPU =D 
NPU “teh NGTHI = 
NPU POINTER) = 
D 
D 
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LOG_FILE_DESCCDSCSA_POINTER) = 0; 


FIND f SULTCDSC$B Sins - = DSC$K_C ASS_0; 
F IND"RESU mi DscsB- “pTY DScsK=pT YPE-T; 
F IND"RESU C$UTL 

FIND “RESULT bee A ~peNR TER) = 6; 


FIND CONTEXT = 0; 


F IND_DEFAULTCDSC$B ft Ass, = DSCSK_CLASS_S; 
FIND_DEFAULTLDSC$B8_DTYPE) = DSCSK-DTYPE UF 
FIND-DEFAULTCDSCSW_LENGTH) = XCHARCOUNT('.COM'); 
FIND-DEFAULTLDSCSA_POINTER] = UPLIT BYTE('.COM'); 
FLAGS = 0; 
: Initialize for command parsing utilities. 
PARSE_GLOBAL_INIT( 

ICURSOR= ITEM -BUFFER, 

DCURSOR= DATA FER 

MESSAGE= SUBMITS TEACILITY"16 + SHRS_INVQUAVAL + STSSK_SEVERE, 


VALUE_DESC= VALUE_DESC); 
- command verb. If it is PRINT, rather than SUBMIT, change some 
aults. 


t 
i 

GET_VALUE(D_$VERB, VALUE_DESC 

HSRCHAR(. VACUE_DESCLDSCSA_ ES iwieR]) EQL %C'P" 


Ge 
de 
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' 
i 
i 
C 
I 
THE 


LI$ 
FC 
HEN 
BEGIN 

FLAGSCV_PRINT) = TRUE 

FIND. _DEFAULTL TLDSCSA_. POINTER] = UPLIT BYTE (".LIS"): 
: Get the common qualifiers context for the PRINT command 


GET_COMM_QUAL_CONTEXT(); 


: Get the cammand qualifiers. 

FLAGS V_IDENTIFY] = CLISPRESENT(D_IDE SBT IFN): 
FLAGSCV_REMOTE) = CLISPRESENT(D_REMO 

: Get the /AFTER qualifier. 
PARSE_CALL(AFTER, D_AFTER); 


: Get the /CHARACTERISTICS qualifier. 
PARSE_CALL (CHARACTERISTICS, D_CHARACTERISTICS); 
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> 


$508 v4 
SUBMIT 


Lie wa ax=11 BL in4-32 4.02762 row of 


PRINT and SUBMIT Commands 


5 
i ; Get the /HOLD qualifier. 


PARSE_CALL(IF_TRUE, D_HOLD, 
SJC$_HOLDS; 


Fe 
Perr 


: Get the /NOTIFY qualifier. 


PARSE _CALL(IF_TRUE, D_NOTIFY, 
SJC$_NOTIFY); | 
| 


™ 
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: Get the /PARAMETERS qualifier. 
PARSE_CALL(PARAMETERS, D_PARAMETERS); 
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Get the /PRIORITY qualifier. 
PARSE_CALL(PRIORITY, D_PRIORITY); 


PPD 


: Get the /RESTART qualifier. 


PARSE CALL(IF_TRUE_FALSE, D_RESTART, 
SICS_RESTART, SJC$_NO_RESTART); 


Get the /USER qualifier. 
PARSE_CALL(USER, D_USER); 


If .FLAGSCV_PRINT] 
THE 
BEGIN 
: Get the command-level /BURST qualifier. 
PARSE _CALL(IF_TRUE, D_BURST_ALL, SJC$_ pie past) 


PARSE-CALL(IF-TRUE, D-BURST-ONE, SJC$_FILE T_ONE); | 
PARSE ~CALL (IF “FALSE, 5 eBURST. $JC$_NO~ FILE ~BURSTT: | 


SNS 
Sarto rnun— Soe VMSwn— 


: Get the /DEVICE qualifier. 
if CLISPRESENT(D_DEVICE) AND NOT CLISPRESENT(D_QUEUE) 
PARSE_CALL(QUEUE, D_DEVICE, SJCS_QUEUVE, SDESCRIPTOR('SYSSPRINT')); 


: Get the command-level /FLAG qualifier. 


PARSE _CALL(IF_TRUE, D_ FLAG ALL, SUCS_FIL 
PARSE-CALL(IF~TRUE, D-FLAG ONE, SJCS-FIL 
PARSE~CALL(IF “FALSE, B FLAG, SJcS_NOTFIL 
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Get the /FORM qualifier. 
PARSE_CALL(FORM, D_FORM); 


: Get the /JOB_COUNT qualifier. 

PARSE_CALL(COPIES, D_JOB_COUNT, 
$JC$_JOB_COPIES); 

Get the /LOWERCASE qualifier. 

PARSE_CALL(IF_TRUE, D_LOWERCASE, 
SIC$_LOWERCASES; 

Get the /NAME qualifier. 

PARSE_CALL(NAME, D_NAME); 


Get the /NOTE qualifier. 
PARSE_CALL(STRING, D_NOTE 
SJCS$_NOTE, SJC$_RO_NOTE); 
Get the /OPERATOR qualifier. 
PARSE_CALL(STRING, D_OPERATOR 
SJC$_OPERATOR_REQUEST, SJC$_NO_OPERATOR_REQUEST); 
: Get the /QUEVE qualifier. 
if NoT CLISPRESENT(D_DEVICE) 
PARSE_CALL(QUEUE, D_QUEUE, SJC$_QUEUE, SDESCRIPTOR('SYSSPRINT')); 


: Get the command-level /TRAILER qualifier. 
PARSE_CALL(IF_TRUE, D_TRAILER_ALL. SJCS_F 


PARSE-CALL(IF~TRUE, D-TRAILER-ONE, SJCS~FILE 
PARSE~CALL(IFFALSE, B_TRAILER, SJC$_NO-FILE 


BEGIN 
: Get the /CLI qualifier. 


PARSE_CALL(FILENAME, D_CLI, 
SIC$_CLI, SJC$_NO_CLI); 


PRINT and SUBRIT Command HecReoct9gs (0:28:51 YANG OL s0gz53 ye.g3749 


: 


: Get the /WSDEFAULT qualifier. 
PARSE_CALL(WORKING_SET, D_WSDEFAULT, 

SICS$_WSDEFAULT; SUCS$_RO_WSDEFAULT); 
! Get the /WSEXTENT qualifier. 


PARSE_CALL(WORKING_SET, D_WSEXTENT 
SIC$_WSEXTENT, SJC$_NO_WSEXTENT); 


ep- CLIUTL SUBMIT. 
: 46 
rt ; ! Get the /CPUTIME qualifier. 
: 4 P PARSE_CALL(CPUTIME, D_CPUTIME 
: 6 SICS_CPU_LIMIT, SJC$_NO_CPU_LIMIT); 
: 4655 
: 2 H Get the /KEEP qualifier. 
: 4 P 0565 PARSE_CALL(IF_TRUE, D_KEEP, 
; 4 § SIC$_NO_LOG_DELETE); 
3 : ! Get the /LOG_FILE qualifier. 
; i Q VALUE DESC = LOG_FILE DESC; 
; 378 FCAGSCVINO_LOG_FILE) = PARSE CALL_VALUE(LOG_FILE, D_LOG_FILE); 
; 57% 
: sre : Get the /NAME qualifier. 
; 57 Q VALUE_DESC = VALUE_DESC; 
3 2f8 PARSE_CALL(NAME, D_NAME); 
; 5 
2 23) : Get the log file specification. 
: 4 6 5 if NOT .FLAGSCV_NO_LOG_FILEJ 
; 4 5 THEN 
: 4 P 0585 PARSE_CALL(NAME_AND_LOG. FILE 
; 4 P 05 VALUE DESC, LOG FILE DESC 
i 4 3 SDESCRIPTOR( 'SYSSLOGIN: .LOG'), SUBMITS_INVLOGFIL); 
: 6 5 
i 4 290 ! Get the /PRINTER qualifier. 
; 4 5 29 PARSE_CALL(PRINTER, D_PRINTER); 
: 6 594 
3 : : 444 : Get the /QUEVE qualifier. 
: 490 ie PARSE_CALL(QUEUE, D_QUEUE, SJC$_QUEUE, SDESCRIPTOR(*SYSSBATCH')); 
; 5 


! Get the /WSQUOTA qualifier. 


— BS 
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: 


Set up the message buffer for the ADDFIL request. 
Q_ICURSOR = ITEM_BUFFER; 
Q"DCURSOR = DATA_BUFFER; 


UNE WN 


-Sep-1 CLIUTL.SRC I1T.B32; 
3 1 
3 P 061 baRsE CALL (WORKING ser + D_WSQUOTA 
3 2 EN: Jes HSQUOTA, SuCS_NO NO-WSQUOTAS ; 
1 3 
; : H Create the job. 
: 51 iF NOT .FLAGSCV_REMOTE) 
; 515 HEN 
r} 1 BEGIN 
3 3) Loc 
; $1 625 10SB8: VECTOREC4,WORD], ! 1/0 status block 
: 1 : STATUS; i Status return 
: $21 
‘ § : Finish the List and send the create job request. 
: 524 Q_ICURSOR Q 60,32. 02 = 0; 
3 5 P § SrAtusse NDJBCWC 
3 $ P FUNC= =sics CREATE JOB, 
3 p ITMLST=1 TEM BUFFER, 
3 635 10S8=10SB); 
3 . If .STATUS THEN STATUS = .10SB; 
3 . IF NOT .STATUS 
3 1 f ay, OE 
; : é 9 SbBAI TS. _CREJOB, 0, .STATUS); 
; 535 
: : § Establish an exit handler to delete the open job on an abnormal exit. 
; 645 EXIT_BLOCKCO : 
3 . § EXIT “Btockt, EXIT HANDLER; 
; 540 . EXIT-BLOC 
: 2) : : exit et =brocet$ bin -BLOCK(4); 
: 54 650 Ex ToatocktG) = 6: BLOCK); 
; 44 651 END; 
: 32 +1 
3 ay 33 : Loop for all elements of the parameter List. 
: 54 $56 WHILE CLISGET_VALUE(D_P1, INPUT_DESC) DO 
: 0 é BEGIN 
3 1 : : CAL 
3 § é STATUS_ 
; i 5¢ STATUS_ 


: Get the /DELETE qualifier. 
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Get the /PAGES qualifier. 


PARSE_CALL(LOWER_UPPER, D_ 
SICS_FIRST PAGE, SJC$~ 
SJCS"LAST_PAGE, SJC$~ 


PAGES 
NO_FIRST_PAGE, 
NO"LAST_PAGE); 


: Get the /PASSALL qualifier. 


PARSE_CALL(IF_TRUE, D_PASSALL, 
SJC$_PASSALL); 


SAN 
at at a a 


: Get the /SETUP qualifier. 


PARSE_CALL(COMMA_LIS 


SETUP 
SIC$_FILE_SETUP 


: 563 P 067 PARSE_CALL(IF_TRUE, D_DELETE, 

: 564 67 SIC$_DELETE_FILE)? 

; 565 57 

3 $8 57 

: 56 67 IF .FLAGSCV_PRINT) 

3 57 THEN 

; § 626 BEGIN 

; R 68 ! Get the local-level /BURST qualifier. 
: §7 P 0680 PARSE_CALL(LOCAL_TRUE_FALSE, D._BURST 

: fh uy SICS_FILE BURST, SJCS_NO_FILE BURST); 
; ? 584 ! Get the /COPIES qualifier. 

; 8 P 0686 PARSE_CALL(COPIES, D_COPIES, 

; i 8 SICS$_FILE_COPIES); 

; 581 588 

3 ¢ 68 

‘ 244 } Get the /FEED qualifier. 

: 585 P 069 PARSE_CALL(IF_TRUE_FALSE, D_FEED 

: i $i SJCS$_PAGINATE, SJC$_NO_PAGINATE); 

; 0695 

; 34 D698 } Get the local-level /FLAG qualifier. 
: 591 P 069 PARSE_CALL(LOCAL_TRUE_FALSE, D_FLAG 

; 3 0699 SJC$_FILE_FLAG, SJC$_NO.FICE FLAG); 
: 594 Oro 

i 36 , § } Get the /HEADER qualifier. 

: 59 7 PARSE_CALL(IF_TRUE, D_HEADER, 

: 598 ' SJC$_PAGE-HEADER) ; 
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MODULES, SJC$_NO_FILE_SETUP_MODULES); 


AX-11 Bliss-32 V4.0-74 
CLIUTL.SRCJSUBMIT.B32; 
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te 
Be THe 
3 4 7 

; 5 7 

s 6 $ 7 

; 6 7 

3 6 3 P 0735 
; 6 7 

; 6 7 

3; 631 7 

3; 6 ¢ 7 

5; 6 740 
3; 8 741 
3; 635 74 
; 6 74 
3 6 744 
3; 6 745 
; 6 74 
; 640 74 
; 641 748 
3 pa 749 
; 64 750 
: 6446 751 
3; 645 75 
3 oe8 75 
: 646 754 
: 648 755 
3; 649 138 
3; 650 75 
3; 651 758 
; 65 759 
3 € 760 
3; 654 761 
3; ©4655 76 
3; 6 76 
; 65 764 
3; 658 765 
3; 659 766 
; 660 76 
3: 661 768 
3 66¢ 769 
: 66 7 9 
3: 664 77 
3; 665 a 
3 4] 77% 
: 86 ae 
; $36 77 
3; 671 ve 
3: 67 7 

; 67 7 0 
: 674 7 

; 675 

3; 676 7 
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: Get the /SPACE qualifier. 

PARSE CALL(IF_TRUE SPACE, 
$JC$_DoUBCE RSPACET: 

: Get the local-level /TRAILER qualifier. 


PARSE CALL (LOCAL_TRUE FALSE. 0 _TRAILER 
>: ues FILE_TRAILER, SJC$_NO-FILE_TRAILER); 


: Loop, calling LIBSFIND_FILE to get files matching the input spec. 


BEGIN 
STATUS _2 = LIBSFIND_FILE( 
INPUT_DESC 
FIND_RESULT 
FIND-CONTEXT, 
FIND DEFAULT, 
0,0, 2REF(2)); ‘Request multiple input file processing 
.STATUS.2 EQL RMSS_NMF 
END 
DO 
BEGIN 
IF NOT .STATUS_2 ! Report error 
THEN 
BEGIN 
SIGNAL ( 
(IF .FLAGSCV_PRINT) 
THEN SUBAITS_FACIL LITY*16 + SHRS_OPENIN + STSSK_ERROR 
ELSE SUBMITS_FACILITY*16 + SHRS_OPENIN + STSSK_SEVERE), 
1, FIND_RESULT 
a .FIND_CONTEXTCFABSL_STSJ, .FIND_CONTEXTCFABSL_STVJ); 
ELSE 
BEGIN 
LOCAL 
PROMPT _DESC; 
PROMPT_DESC = FIND_RESULT; ! Pointer to a desc of 
! the filename 
STATUS_3 = LIBSQUAL FILE_MATCH ( 
QUAL_CORTEXT? ! Qualifier context 
FIND “CONTEXT, i Fab pointer 
° ! No file name 
: IF LAGSCV_PRINT] 
THEN N aD ERCRIPTOR(: (AS, Print? CNJ:° 
ELSE SpESERIPTORG' EAS? Submit? this), A 
' Prom 
PROMPT _DESC, ; Descriptor filename 
0); i No prompt routine 


IF NOT (.STATUS_3) 
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-Sep-1 
THEN 
BEGIN (,STATUS_3_NE 


Q LIBS_FILFAIMAT) AND 
(.STATUS_3 NEQ LIBS_QUIPRO) AND 
en ATUS. NEQ LIBS-NEGANS) 
BEGIN 


SIGNAL (SUBMITS_FACILITY*16 + 
3 HRS FICNOTAC CC + STSSK_WARNING, 
= FIND_RESULT); 
cise IF (.STATUS_3 EQL LIBS_QUIPRO) 
EXITLOOP; ' Quit Now 


ELSE 
BEGIN 


FIND _CONTEXTCFABSV_SPL] = FIND _CONTEXTCFABSV_SCFJ = FALSE; 
IF NOT SOPEN(FAB=.F IND_CONTEXT) 
THEN 


SIGNAL ( 
(IF .FLAGSCV_PRINT) 
THEN SUBMITS-FACILITY°16 + SHRS$_OPENIN + STS$K_ERROR 
ELSE SUBRITSEFACILIT ¥°16 + SHRS-OPENIN + STSSK~SEVERE), 
ee Witte NCONTEXTCFABSL _STS], .FIND_CONTEXTCFABSL_STV) 


IF_.FLAGSCV_REMOTE) 
THEN 


BEGIN 
4 7 -BBLOCKCFIND_CONTEXTCFABSL_DEV], DEVSV_NETJ 


SIGNAL ( 
SUBMITS_REMOINSF, 
1, FIND RESULT) 
ELSE 
IFf_.FLAGSCV PRINT 
THEN FIND_CONTEXTCFABSV_SPL] = TRUE 
END ELSE FIND-CONTEXTLFABSV_SCFJ = TRUE; 


IF NOT SCLOSE(FAB=.F IND_CONTEXT) 
THEN 
GNAL ( 
SUBNITS_ PACILET 
F INDRESULT 
Watt CONTEXTLE 


Y*16 + SHRS$_CLOSEIN + STSSK_ERROR, 


IF NOT .FLAGSCV_REMOTE) 
THEN 


BEGIN 
IF .BBLOCKCF IND_CONTEXTCFABSL_DEV), DEVSV_NETI 


ABSL_STS], .FIND_CONTEXTCFABSL_STV)); 


Kk 11 
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: 


HEN 
SIGNAL ( 
SU MITS_REMOINSF, 
» FIND-RESULT) 
ELSE 
NOT .BBLOCKCFIND CONTEXT CFABSL DEV], DEV$v_FOD] 
OR "BBL OCKEFIND_CONTENTLFAB L Devi. BEvsV FOR! 
-BBLOCKLF IND-CONTEXTLFABSL_DEVJ, DEV$V_SaD 
SIGNAL ( 
SUBMITS _INVEILSPE, 
» FIND-RESULT) 
GIN 
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PELL RRRS 
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> 74 1 

3 169 1 | Add the SJCS$_FILE_IDENTIFICATION item. 

: 751 1 LOCAL 

-. ¢ 4 . ' Filename Length 

3 Le 1 NAM: REF BBLOCK ! Pointer to block 
: 754 10 10SB:VECTORL4,WORDJ,! 1/0 status block 
3 re? \} STATUS; ! Status return 

: 728 0864 10 NAM = .FIND_CONTEXTCFABSL_NAMJ; 

; 758 865 10 Q_ICURSORCO70,16,0] = NAMSS DVI + NAMSS_FID 
: 759 0866 3 + NAMSS_DID; 

: 760 O86 10 Q_ICURSORE2,0,16,0] = SJC$_FILE~ IDENTIFICATION; 
: 761 868 1 Q-ICURSOR 4.0.3 70] = NAMCRAMST-DVIJ; 

: 76 0869 10 Q-ICURSOR(8,0,32,0] = 0; 

: 76 870 1 Q-ICURSORC12,6,32,0) = 0; 

: ee O87? 10 

: 7 ig 1 ' Send the add file request. 

3 76 7% 1 i 

; 168 P 0875 10 STATUS = SSNDJBCWC 

: 76 Pp 876 1 FUNC=SJC$_ADD FILE, 

: 770 P 0877 1 ITMLST=1 TEM_BOFFER, 

: 771 28 1 10S8=10SB); 

: 77 79 1 IF .STATUS THEN STATUS = .10SB; 

: 77 01 IF NOT .STATUS 

: 77% 11 THEN 

: 775 : 1 SIGNAL ( 

: £76 1 SUBMITS_ADDFIL, 1, FIND_RESULT, 

: 77 1 " usy 

: 77 51 ELSE : 

eR 1 CNT = .CNT + 1; ' Count of files in Job 
: 780 END; 

: 781 8 8 END; 

: 7 END; 

3: 7 g END; 

- Hw , END; 

: 785 2 4 END; 

:; 7 9 END; 

3 g y END; 

: 7 IF NOT .FLAGSCV_REMOTE) 

tm, 3 THEN 
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F oS 
F NOT ~STATUS AND (.CNT NEQ 05 


SIGNAL _STOP( 
SUBMIT$_CREJOB, 0, .STATUS); 


! Execute /IDENTIFY only if there WAS a job. Assume an error 
was issued if no tasks in the job. 


if _.FLAGSCV_IDENTIFY) AND (.CNT NEQ 0) 
THEN 


SIGNAL ( 
UBMITS racahaly Y*16 + SHRS_TEXT + STSSK_SUCCESS, 
dene Recs 


: 791 BEGIN 

; 3s LOCAL 

; 033 10SB: VECTORE4 WORD], : 1/0 status block 
3 STATUS; ' Status return 

3 £%? 

3 Re ! Add the JOB_STATUS_OUTPUT item and finish the List. 
: Q_ICURSOR = ITEM BUFFER; 

; 00 $01 if ghtacstv. IDENTIFY) 

: 3 308 4 EN REGIN 

: 19 4 JSM_DESCEO = 0; 

; 804 911 4 JSM~DESCC1] = JSM_BUFFER; 

: 805 12 4 Q_ICURSOR(O.0.16,.0) = ZALL LOCATION(JSM_BUF FER) ; 

: 06 915 4 Q-ICURSORE2.0,16,0] = SJC$ aioe eg! ATUS-OUTPUT; 

3 914 & Q-ICURSOR 3° ‘3, .0J = JSM_BUFFER; 

; 808 915 4 Q-ICURSORC8, = JSM- ESC: 

; 809 0916 4 Q7ICURSOR = .@ ICURSOR + m ; 

3; 810 91 END; 

: Bi) 918 ve heh = 0; 

; £18 920 

: Bis , 1 } Send the close job request. 

; af P 09 4 STATUS = SSNDUBCU 

: 81 P 0924 FUNC=SJC$_CLOSE_JOB, 

; 819 Pp 09 é LIM STCITEN. BUFFER, 

: 820 

3 631 63 8 

: : g 3494 } Cancel the exit handler established to delete the job on abnormal exit. 
3 B34 saa $CANEXH(DESBLK=EXIT_BLOCK); 

> 826 093 

3 $8 0934 ! If close job failed and the count of jobs sent indicates that there 
; 29 Baz ; WERE jobs then issue error. 

; 339 ; TATUS THEN STATUS = .10SB; 

; T 


NOE UN OOR OE 
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5 
i ' Return with the most severe error encountered. 


¢ 3! 
; 5 9 EXIT_STATUS OR STSSM_INHIB_MSG 
; 2 95 END; 
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CLIUTL.SRC IT 


-TITLE SUBMIT PRINT and SUBMIT Commands 
“IDENT \V04=000\ 
«PSECT DATA,NOEXE,2 
00000 QUAL_CONTEXT:: 
.BLKB 4 
00004 EXIT_STATUS: 
-BLKB 4 
00008 FLAGS: <BLKB 4 
-PSECT CODE,NOWRT,2 
42 52 45 56 24 90000 P.AAB: ASCII \SVERB\ 
| 0000005 00008 P.AAA: .LONG 
0900000" 000 “ADDRESS P.AAB 
1 50 00016 P.AAD “ASCII \Pi\ 
90000002 Goats P.AAC: .LONG 
00000000" 00018 ;ADDRESS P.AAD 
52 45 54 46 41 Godei P.AAF ott \AFTER\ 
00000005 00024 P.AAE: <LONG 
00990009" 00028 ;ADDRESS P.AAF 
54 53 52 4 00 ‘ P.AAH: “ASCII \BURST\ 
SSGUOOBG» B38 PMG! AeNRe ss’ 
53 43 49 54 53 49 52 45 54 43 41 52 41 48 4 QO5C P.AAd: ASCII \CHARACTERISTICS\ 
9900000F , 9004 N 15 
00000 9 00 “ADDRESS P.AAJ 
49 4 99 4 P.AAL: ASCII \cLI\ 
00 000 . 3 
000000: AD P.AAL 
53 45 49 50 4 P.AAN: -AS¢ \COPIES\ 
900 P.AAM: g 
0 P.AAN 
4 CPUTIME\ 


P.AAP: .A 
P.AAO: . 

PAAR: 
P.AAQ: 
P.AAT: 


45 54 45 4C ASCII 
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-LONG 
eADDRESS P.AA 


Pp 
\DELETE\ 


«LONG 
eADDRESS P.AA 
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\DEVICE\ 


V04~000 


59 


54 4E 


45 


45 53 


52 


53 52 45 


46 


55 


4C 


41 


4F 


54 


52 


49 


4F 


49 


43 


59 


54 


45 


PRINT and SUBMIT Commands 


45 


54 


43 


46 


52 


46 


ay 


53 


4D 


at 


47 


4D 


4G 


4h 


4E 


SF 


50 


SF 


45 


45 


45 


49 


52 


45 


4] 


oo oo 
oo oo 
Soo 
oo 
oo 
oo 
DWOFOCOLSOCOLOOO 
2 


= 
— 
oo 
oo 
Coos 
oo ay * f° wr * er 
oo 
Coos 


oo 
oo 


= 
o 


oo 
oo 


oo 
oo 


FSooflooftoo fS£OOFS0OFS0SO fS£OOFfSCOFSoSoO £00 


So 


oo 
Soo 


, 
N 
oo £00° f£00U100o 


coo -coo —OooOoo 


= 
wm 


oo 
oo 


oo 
oo 


wm 
™ 


oo 
oo 
oo 
oo 
oo 
or 


SOOGSOCOGSSOSOSSSOOGSOOSOSOOSSOOO SOOO SSOSOOSOOSOSSOSOOSOOSOOOOOOOOOOOOOOSoOO 


SOOOSOSOSOSOSOSOSOOSOSOSOSOSOSSOSOSSSSSSSSSSSSoSoooooooooooooooooooooooo 


fe -1 
12-8087} 


UI ES Be 
PDWENADZEOO 
v 
e 
> 
-) 

-_ 


Aeron oe 


Be 92:65:85 


AX-11 ot 3 Pay V4.0-74 
CLIUTL.SRCJSUBMIT.B32; 


mM xe lU SlCr 


«LONG 

eADDRESS P.ABB 
eASCII \HOLD\ 
«LONG 4 
eADDRESS P.ABD 
eASCII = \IDENT 
» LON 8 
eADDRESS P.ABF 
eASCII = \JOB_COUNT\ 
-BLKB 

«LONG 

eADDRESS P.ABH 
eASCII = \KEEP\ 
»LONG 
eADDRESS P.ABJ 
eASCII \LOG_FILE\ 


«LON 
eADDRESS P.ABL 
yt \LOWERCASE\ 


IFY\ 


R 
I 
RESS P 
I N 
agss P.ABR 


LON 
eADDRESS P.ABT 

rr f \OPERATOR\ 
eADDRESS P.ABY 
eASCII = \PAGES\ 
-BLKB 

~LONG 

eADDRESS P.ABX 
tt \PARAMETERS\ 


“LONG 10 
“ADDRESS P.ABZ 
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4C 4C 41 53 53 41 50 P.ACB: ty \PASSALL\ 3 


8 
Sg088 98 P.ACA: :LONG : 
52 45 56 4E 49 8 


R . 
AO P.ACD: <ASCII \PRINTER\ F 
$8090 
59 56 49 52 GF 49 g : 
90 
0 


aetna 


P.ACC: 
P.ACF: .ASCI 
ACE: .LON 
eADOR 
P.ACH: .ASCI 
-BLKB 
P.ACG: 


ESS P.ACD 
I \PRIORITY\ 
r P.ACF 


45 55 45 ere 


«LONG 
«ADDRESS P.ACH 


45 54 4F 4D PAACJ: ASCII \REMOTE\ : 
$o000000" C cova: “ADDRESS P.ACJ ; 
54 52 41 54 53 a 38 g P.ACL: .ASCII  \RESTART\ F 
Sune HEI PAC BRE ty a : 
50 55 54 g 3 6 P.ACN: -ASCII \SETUP\ F 

a 


«LONG 

»ADDRESS P.ACN : 

P.ACP: .ASCII \SPACE\ ; 
BLKB 


45 43 41 


won 
a 
OOOCCSCCCOCOooooeoo 


POR PPMPYPIPNIPYNIPININININPINPUPYNPI PIP NIPYPODINPYPOPINYDY 3 9 oe 
Se NO at >?ro 
oflom WNOOM DOOM DON DLOOWOVNOOMOW SOOW1IOM GBOOWO NOM 23s 
~~ ~v v7 vv Uv vo 
e oO * e« e 
QS > > QS > 
So oO o oO oO 
oO < nn © o 
Bete te Se eee eee 


» LONG 
»ADDRESS P.ACP 
52. 45 4C 49 41 P.ACR: .ASCII \TRAILER\ 
-BLKB 1 
-LONG 7 
eADDRESS P.ACR 
ACT: .ASCII \USER\ 
: LONG 4 
sADDRESS P.ACT 
eACV: ASCII \WSDEFAULT\ 
BLKB 
P.ACU: .LONG : 
eADDRESS P.ACV : 
P.ACX: .ASCII \WSEXTENT\ : 


52. 45 


54 4E 45 54 58 45 
«LONG 
eADDRESS P.ACX 
P.ACZ: ott  memaabies 


41 54 4F 55 51 


FUSS 


~LONG 7 
»ADDRESS P.ACZ 
oe} \BURST.ALL\ 3 


P.ADA: .LO 
AD 

74 P.ADD: AS 
7 ~BL 


5 
0 
0 
5 
0 
5 
0 
54 4C 55 41 46 45 44 3 
0 
: 
0 
5 


4C 4C 41 2€ 54 53 52 


cs 
~v 
e 
S 
So 
ee] 


NG 
0 DRESS P 
45 4€ 4F 2€ 54 53 52 i cil 


-ADB 
i} \BURST.ONE\ : 


oo 
NISSNS 
> Noo NOFfMON = 
SOoQoQoooooooooooooooooooooooooooocoo: 


COOOOSOCOCOOSOOOSOOOCOOOOCOOOOooSoO: 


LONG 
-ADDRESS P.ADD : 


04-000 


47 4F 4C 


5D 4E 5B 20 
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43 
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75 
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47 


47 
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41 4C 4 P.ADH: 
0906000 no P-ADG: 
41 99 As P.ADJ: 
B 
bo9p0009" B4 P.ADI: 
B8 
41 ff P.ADL: 
44 464 .. C8 P.ADK: 
5s 
oo Sus fag 
53 5 08 P.ADP: 
5009809 6 Es P.ADO: 
a A von 
90000009 0 r8 P.ADQ: 
sO BE oor 
0000000E 00 5 P.ADS: 
00090005" 0314 
53 5 i 18 P.ADV: 
00000009 00 3 P.ADU: 
00000000" 00328 
53 41 ¢1 0 P.ADX: 
00000010 0033C¢ P.aow 
00000000' 00340 
53 41 Hl 00344 P.ADZ 
3A 5D 88 33 
0000011 09 58 P.ADY 
0000000" 0035¢ 
D_SVERB= 
D"Pi= 
D“AFTER= 
D“BURST= 
D7 CHARAC 
D“CLI= 
D“COPIES 
D"CPUTIM 
D“DELETE 
D“DEVICE 
D-FEED= 
D7FLAG= 
D7 FORM= 
D"HEADER 
D“HOLD= 


TERISTICS= 


AX-11 Bli atts 32 V4. 
cLiviLe SRCJSUBMIT. 


eyo} \FLAG.ALL\ 


N 

-ADDRESS P.AD 
ASCH \FLAG. ONE\ 
ADDRESS P.A 
eASCI \TRAILER.ALL\ 


=74 
32 


woo 


-ADJ 
RAILER.ONE\ 


— 

> 
wm 
o 
— 
a 

nn 
Sn el el 


“ADDR ESS 
ASCII 
-BLKB 
- LONG 4 

eADDRESS P.ADT 
ASCII \SYSSBATCH\ 


L 
«LONG 
sADDRESS P.ADV 
eASCIIT = NIAS, Print? CNJ:\ 


P.ADR 
\SYSSLOGIN: .LOG\ 


. 
“ASCH vi AS, Submit? (NJ:\ 
-BLKB 3 
LONG §=17 
sADDRESS P.ADZ 


row 


“Oo 


12 
SupMIT, PRINT and SUBMIT Connands 1$-ep-1964 00:28:5]  yaxctt BLing=52 vé.0.749 


D_IDENTIFY= P. ABE 

D-J08_COUNT= P.ABG 

D“KEEP= P.ABI 

D“LOG_FILE= P.ABK 

D“LOWERCASE= P. ABM 

D"NAME= P. ABO 

D“NOTE= P. ABQ 

D“NOTIFY= P.ABS 

D"OPERATOR= P. ABU 

D"PAGES= P. ABW 

D"PARAMETERS= P.ABY 

D"PASSALL= P.ACA 

D“PRINTER= P.ACC 

D“PRIORITY= P.ACE 

D“QUEUE= P.ACG 

D“REMOTE= P.ACI 

D“RESTART= P.ACK 

D"SETUP= P.ACM 

D"SPACE= P.ACO 

D-TRAILER= P.ACQ 

D"USER= P.ACS 

D-WSDEFAULT= P.ACU 

D-WSEXTENT= P.ACW 

D“WSQUOTA= P.ACY 

D"BURST_ALL= P. ADA 

D"BURST-ONE= P- ADC 

O"FLAG_ALL= P.ADE 

D"FLAG-ONE= P.ADG 

D“TRAICER_ALL= P.ADI 

D“ TRAILER” ONE= P- ADK 
.EXTRN CLISGET VALUE, CLISPRESENT 
-EXTRN LIBSFIND_FILE, LIBSSCOPY_DXDx 
-EXTRN LIBSQUAL “FILE MATCH 
“EXTRN LIBSQUAL ~F ILE PARSE 
-EXTRN LIB$_QUIPRO, CIB$_NEGANS 
SEXTRN LIBS FILEAIMAT PRINTS_FACILITY 
-EXTRN SUBMITS FACILITY 
-EXTRN PRINTS_ADDFIL, SUBMITS_ADDF IL 
-EXTRN PRINTS-CREJOB, SUBMIT$~CREJOB 
“EXTRN PRINTS INVFILSPE 
“EXTRN SuaMITS INVE ILSPE 
-EXTRN PRINTS_REMOINSF 
-EXTRN SUBMITS_REMOINSF 
-EXTRN SUBMITS~ INVLOGF IL 
-EXTRN PARSE_AFTER, PARSE_CHARACTERISTICS 
-EXTRN PARSE-IF_TRUE, PARSE PARAMETERS 
-EXTRN PARSE-PRIORITY, PARSE_IF_TRUE_FALSE 
-EXTRN PARSE-USER, PARSE IF FALSE 
-EXTRN PARSE-QUEUE, PARSE FORM 
-EXTRN PARSE-COPIES, PARSE_ 
-EXTRN PARSE-STRING. PARSE FILENAME 
-EXTRN PARSE-CPUTIME, PARSE_LOG_FILE 
“EXTRN PARSE -NAME ANO_LOG FILE 
*EXTRN PARS PRINTER, PARSE _WORKING_SET 
“EXTRN SYS SADIBCH, SySSDCLEXH 
-EXTRN PARSE_LOCAL_TRUE_FALSE 
-EXTRN PARSE~LOWER-UPPER 


SuORIT, PRINT and SUBMIT Commands 1$-$e0-1964 00:28:51 tlh 324-0342 


“EXTAN PARSE COMMA LIS 


TRN SYS ie s¥s elose 
TRN SYSSCAN 


OFFC SUBMIT: .WORD Save R2,R3,R4,R5,R6,R7,RB,.RI,R10,R11 
7 0000" CF MOVAB 
6 FD D «OCF VAB aeHtS 5% 
E F704 ge : 9 VAB 2 (SPS, 
60 oov tf 9€ 9001 MOVAB HAND 
EO AD 0206909 i 06 o MOVL Ets, nNPut DESC 
E8 AD 020€0000 a 06 0085 nOvL r #546 1936 "VALUE _DESC 
D8 AD 020E00 8F DO 000 MOVL #3047 19 é "tos FILE_DESC 
i AD D4 CLRL L0G FIL BESC+2 
F8 AD 020E00 8F DO MOVL  #34%71938, FIND_RESULT 
AD D4 041 CLRL = FIAND_ RESULT 144 
AE 04 00044 CLRL FIND” CONTE 
FO ap 01069084 8F D0 00047 MOVL #17694724, AT IND DEFAULT 
F4 8 C6 9E 0004F MOVAB P.ADM, FIND DEF FRULT+4 
FC A 01 7D 00055 mova #i, E 
58 04 CE 9E 00059 MOVAB ITEM SOUFFER, 0 Q_ICURSOR 
SA AE 9 005 MOVAB DATABUFFER. Q-DCURSOR 
59 00000000" 8F D0 0006 MOVL A<ceSUBMITS_FACILITYR16>44904>4>, © 
58 Es AD 9E 00069 MOVAB VALUE_DESC, @_VALUE_DESC 
E AD 9F 0006D PUSHAB VALUE DESC 
FF70 C6 9F 00070 PUSHAB D_$VERB 
000000006 00 02 FB 00074 CALLS #2, CLISGET yALUE 
50 «8F EC BD 1 0078 CAPE pe DESC#4, #80 
67 1 as 0082 B1SB2 “ AGS 
F4 AD 023¢ c6 E 0008 MOVAB hone FIND DEFAULT+4 
0000v CF =o FB 00088 1$: CALLS a GET COMA QUAL_CONTEXT 
000000006 00 1 Fe 9 CALLS a. "LISER PRESENT 
67 01 1 0 FO 0009A INSV 
0140 (C6 9F 0009F PUSHAB OneRO e 
000000006 00 1 FA 00A3 CALLS m Cr Spnesen 
67 01 02 0 £0 OOOAA INSV FLAGS 
8C Ab 9F OOOAF PUS 
00006 CF 01 FB 0008 CALLS 
B4 AG 9F 0008 PUSHAB 4 TeMnanel ERI 
00006 CF 0 FB OOOBA CALLS #1. PARSE CHARACTERISTICS 
E 47 BF 9A OO0BF MOVZBL #7 4 =(SPY 
40 As 9F 000C3 PUSHAB D_HOLD 
00006 CF 0 FB 000C6 CALLS a BARSE IF _TRUE 
E 6C OB 9A 00CB MOVZBL #108, -(SP) 
00B¢ ¢ F OOOCF PUSHAB D 
00006 CF FB 000D CALLS #2 PARSE 1F TRUE 
00FO ¢ 9F 000D: PUSHAB D_PAR RS” 
00006 CF 1 FB 000D CALLS aT BARS PARAMETERS 
0120 6 9F OOOE PUSHAB D_ PRIORITY 
00006 cf FB OOOES CALLS aT gh ARSE PRIORITY 
F a F 9A DOOEA MOV ZBL -(SP) 
7E F 9A OOOEE MOVZBL 133. -(SP) 


| 
Page 23) 
F 12 98. o Liss-32 V4.0<74 3 | 
1-80-1980 93:60:85 Feet Ute sae sugMlT830:4 
1 PRINT and SUBMIT Commands 1e-8ep-1 09: | Som | 
voe-000 PUSHAB D_RESTART : 
0150 66 9F 900F? ALLS. #3, PARSE_IF_TRUE_FALSE ; 0473, 
we <<. 9f 00FB eMrtee a1 PARSE USER $0476, 
00006 fF of f BLBS FLAGS, + onae| 
0088 i H 2s PUSHL #32 T ALL : 
01D4 is +4 CALLS ay PARSE IF TRUE 5 oe 
00006 CF " i PUSHL # ; 
O1€8 F O01} aise #2) PARSE IF TRUE $0686 | 
ene bp PUSHAB sunst ; 
“8 Pp CALLS #2, PARSE_IF_FALSE : 0689 
e. f BBC’ RO, SS ; 
000000006 00 ® £8 601 GLC, RO, 3S ; 
"0130 eS 001 ry #7, CLISPRESENT : 
1 ¢ 13A CALLS 4 4 9491 
epee ae 0 8 O14 PUSHAB P-ADO : 
es : 
on) a ee town 
00006 ¢F i 5 38: PUSHL 
on 8B 1 coe ee = 
00006 CF " i PUSHL ; 
0208 F 0166 CALLS #2 PARSE IF _TRUE ; 0498 
00006 CF 03 BD 00169 pute 6 i ; 
18 AS OF O166 CALLS. #2, PARSE_IF FALSE 0503 
woes 24 a2 OF 00178 Ckits. BT PARSE _FORN ? 0509 
1 FB 00176 CALLS AT, PARSE. ; 
00006 CF oe & 0178 OSHS D368 COUNT : 
: 64 AG OF OOITE CALLS, #2, PARSE. COPIES : 0515 
$ FB 001 $ C V2BL abot -(SP) F 
wees 66 BF 9k 001 PUSHAB D_LOWERCASE ; 
. et C6 7 188 CALLS. #25 PARSE IF TRUE 0520 
F PUSHAB : 
00006 ¢ 00A0 é ve Shine CALLS AT) PARSE NAME : 0526 | 
000ne fgg HBR BRS movzBL #167. ~(SP) 
7 one, BO 13 CALLS. #3 PARSE _STRING : 0532 
$ fp Oot Rove, #it1. SB) ; | 
00006 ¢F SOB $A 188 MOVZBL ST eeaatta: per 
SHAB 
. oocc g 44 ine CALLS a. PARSE _STRING : aed 
006 
om ; Pe cote hes RO; See : 0539 
000000006 9 9 eS ite PUSHAB a 
#i34, - 
7c ee OBE 9a OOlcE VZBL 


_— l 


BERN ««PRINT and SUIT Command flesh) mshi rase Gs 


0130 


oF D PuS 3 
00006 CF 8 FB +) ALLS o CUE ESE QUEUE : 
bb DC 4$: SHL #48 3 
021¢ F PUSHAB p TRAILER_ALL ; 
00006 CF FB CALLS PARSE-1F_ TRUE 3 
bb PUSHL + 0545 
0230 F 9 PUSHAB 0_TRAILER_ONE ; 
00006 CF FB OOTE CALLS ‘ PARSE_IF _TRUE ; | 
D OD OO1F PUSHL : 0546 
0180 f F OO1F PUSHAB 4 TRAILER : 
00006 CF re Fs CALLS 2. PARSE IF _FALSE ; 
00A F BRW 7 : 0476 
12 DD 5$: PUSHL “ig + 0554 
11 DD PUSHL #1 : 
CO AG OF PUSHAB D_CLI ; 
00006 CF 03 FB 7 CALLS 4&3, PARSE_FILENAME 3 
1 DD c SHL : 0560 
D PUSHL @# : 
EO As F 0021 PUSHAB D.CPUTIME : 
00006 CF 0 FB 0021 CALLS 4&3 PARSE CPUTIME : 
E $0 F 9A 0021 MOVZBL #96, = + 0566 
ag F 0021C PUSHAB KEEP ; 
00006 ce 02 FB OO21F CALLS p28 PARSE RUE ; 
8 D8 AD OE 4 MOVAB LOG F seater! Q_VALUE_DESC + 0571 
0080 C6 9F 8 PUS CoG. fre : 0572 
00006 CF 1 re ¢ CALLS ore oxRse LOG FILE ; 
67 01 03 0 F 1 INS RO. #3, #T, FLAGS : 
& E8 AD 9E MOV VALUE a Q_VALUE_DESC + 0577 
00AO0 C6 OF A PUSHAB : 0578 
00006 CF 1 re CALLS BS PARSE : 
15 67 3 €£ 4 BBS Lagsi : 0583 
000099096 F bb 4 PUSHL Gentt “pe : 0587 
0278 C6 9F 0024D PUSH ; 
D8 AD 3 1 PUS LOG FILE_DESC ; 
£8 AD OF 4 PUS ALOE_DESC : 
00006 CF 04 FB 7 CALLS PARSE _NAME_AND_LOG_FILE F 
0110 C6 OF 6$: PUSHAB 5 BRIN : 0592 
00006 CF 01 FB CALLS oT PARSE _PRINTER 3 
028¢ C6 9F 0026 PUSHAB P.ADU : 0597 
7E 6 F pA $ MOVZBL #i34 urs? : 
01 6 F PUSHAB : 
00006 CF FB 1 CALLS a, PARSE Queue : 
E F 9A 00276 MOV ZBL #22. + 0603 
7E 9 F 9A OO27A MOVZBL ~t3} : 
01A0 : 9F 0027 PUSHAB 4 134 car) F 
00006 CF FB CALLS #3, PARSE WORKING_SET : 
E 9A s«BF 3A movz7BL #154, > 0609 
7E 99 BF 9A MOVZBL #153. -(SP) : 
0180 $ OF F PUSHAB D_WSEXTENT F 
00006 CF FB ; CALLS #3, PARSE _WORKING_SET : 
E 9¢ BF 9A 0029 MOVZBL #1 g. -(SP) > 0615 
7E 96 F 9A 0029 MOVZBL #155. =(SP) : | 
01¢ F OOOA SHAB D_WSQUOTA ; 
00006 CF F CALLS #3, PARSE _ RKING_SET ; 
51 67 f AD 7$: BBS a2. 0$ : 0621 
b AD CLRL tAgaaD : 1 
E 7C OO2AF (LRG > 0635 


H 12 | 
T PRINT and SUBMIT Commands 16-Sep-1 :28: AX-11 Bliss-32 V4.0-74 Pa 5 
voe-000 1e-38b-138e 93:65:85 Hee TUT sae Ssugm t:o3 e 
oe B1 PUSHAB 10SB : : | 
0434 B4 PUSHAB ITEM_BUEE R : 
7E Oh 88 mMOVa #10,7=(SP ; 
000000006 5 Pe b0SRe EArt =I” ese NDJBCW : | 
0? 9 E cs BLEC STATUS 3 $ 0636 | 
0 OC AE OD ¢ MOVL 1088, §TATUS : 
11 6 E CB BLBS STATUS, 9$ + 0637 
D CE 8s PUSHL STATUS + 0640 
E 04 CLRL. = = (SP) + 0639 
000000006 ar D D PUSHL #SUBMITS$_CREJOB : 
000000006 00 3 F CALLS #3, LIBSSTOP ; 
146 AE p DF 9$: CLAL. EX{T_BLOCK ; 0645 
18 AE 0000v cr Eg MOVAB EXIT“HANDLER, EXIT_BLOCK+4 : 6 
\¢ AE 1 E MOVL #i, EXIT_BLOCK+ 3 064 
26 AE 34 AE EC MOVAB EX{T_BLOCK+16, EXIT_BLOCK+12 + 0648 
4 AE p F CLRL —« EXIT“BLOCK+16 + 0649 
000000006 00 " Of F fs attics Bee a OS CLEXH _— 
orf AD 3 Fe 108: BUSHAB INBUT DESC + 0656 
000000006 00 ; F 05 CALLS #2, CLISGET_VALUE : 
a se ee a : 
SB 0438 CE if 11$:  MOVAB ITEM_BUFFER, Q_ICURSOR + 0664 
5A AF 9 1 MOVAB DATA“BUFFER, Q7DCURSOR > 0665 
1 p 18 PUSHL #24 : 0671 
FO A6 9F 00310 PUS D DELETE ; 
00006 CF 03 Fe 9 CALLS #2, ARSE IF TRUE ; 
03 0086 ft, 3 BLBS f Acs. 128 + 0674 
32 dD B12$:  PUSHL #34 + 0681 
D PUSHL #32 : 
9c (OA F PUSHAB D_BURST : 
00006 CF Q FB 3 CALLS #3, PARSE_LOCAL_TRUE_FALSE : 
PUSHL # : 0687 
00006 CF = 8 FB H chs. 4 at st tt COPIES : 
E 7 oF 9A 00341 MOVZBL a » =(SP) : 0693 
7E 7 9A 00345 MOVZBL #117. =(SP) : 
00006 CF a 63 4 te CALS” 4 FOE ARSE IF_TRUE_FALSE : 
26 DD PUSHL #36 il en + 0699 
4 PUSHL #36 ; 
00006 CF " 63 FB atic Os, PARSE LOCAL_TRUE_FALSE : 
E 71 oF D MOVZBL #113, -(SP) ~~ > 0705 
00006 CF ™ 68 FB rt tie 4 HEADER IF _TRUE : 
. E C BF 9 MOVZBL 3 . (SPP : 0712 
7E B 8F MOVZBL #91. -(SP) : 
F DD q PUSHL a4 ; | 
00006 CF ome 6 FB ; CALLS Os, Gaase LOWER_UPPER ; 
7 80 F 43 MOVZBL #128, -(SP) ~ : 0718 
01 C6 8 PUSHAB D_PASSALL : 
| 


AX-11 Bliss-32 V4.0 


trp vp) mie mame 1b deo 1984 93:65:83 eet see Ssoamit:o30+4 


14-Sep-1 


04-000 


00006 CF ; FB CALLS #2 PARSE_IF _TRUE 
bb PUSHL #4 
0160 F PUSH SETUP 
00006 CF FB CALLS PARSE_COMMA_LIST 
bb PUSHL 
0170 F A PUSHAB D_SPACE 
00006 CF FB CALLS #2 PARSE_IF_TRUE 
D DD 003A PUSHL @# 
3 bb A PUSHL 
0180 F OO3A PUSHAB 0_TRAILER 
00006 ce FB CALLS Ag PARSE_L9CAL_TRUE_FALSE 
E D 13$: MOVL #2, (SP) 
E bb B PUSHL SP 
— 7¢ 0038 CLRQ_ 0 =( SP) 
FO AD OF 0038 PUSHAB FIND_DEFAULT 
14 AE 9F OO3BA PUSHAB FIND-CONTEXT 
F AD 9F 0038 PUSHAB FIND-RESULT 
E AD 9F 003C PUSHAB INPUT DESC 
000000006 Oo F ¢ CALLS #7, LIBSFIND_FILE 
> 9 D CA MOVL RO, STATUS A 
000182CA BF 33 2 cD cHPL STATUS 2, 499018 
5 06 =A 00 D6 MOVL FIND CONTEXT, R2 
7 5 3 DA BLBC  STATOS 2, 19$ 
08 AE F8 AD : bp MOVAB FIND_RESULT, PROMPT_DESC 
7E D E CLRL = = (SP 
OC AE 9F OO3E4 PUSHAB PROMPT_DESC 
97 67 £9 367 BLBC FLAGS, ~14$ 
0 0204 CC t EA MOVAB P.ADW, RO 
05 1 3EF BRB 15$ 
50 02c0 £6 9E 003F1 14$: MOV P.ADY, RO 
3 DD rg 15$:  PUSHL RO 
D4 003F CLRL. = = (SP) 
52 DD OO3FA PUSHL R2 
F8 A? OF OO3FC PUSHAB QUAL_CONTEXT 
000000006 3 08 FF CALLS a. cissaun _FILE_MATCH 
5 E BLBS ST TATOS , 18S 
000000006 &F BY CPL TATUS-3. #LIBS_FILFAIMAT 
000000006 8F 53 } 13 CPL TATUS_3, #LIBS_QUIPRO 
000000006 8F 33 4 CRPL TATUS_3. #LIBS_NEGANS 
FB AD OOF PUSHAB FIND RESULT 
1 DD A PUSHL 
00000000 F bp ; PUSHL #<<SUBMITS_FACILITY@16>+4920> 
000000006 8F 3 1 3 16$: CPL " pee #L1B$_QUIPRO 
FEBD ¢ E 17$: BRW 
0S A2 60 8F BA 18$: BICB2 #98 » 5¢R2) 
: DD 0044 PUSHL Re 
000000006 00 FB D048 CALLS @ $¥SSOPEN 
4 9 a. BLBS RO, 
: A 0085 19$:  MOVa  8(R2), -(SP) 


12 
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f8 «AD OOF SH FIND_RESULT 
8 ; Brace FLAGS 20$ 
00000000* 8F 99 ayant SteCOUE TS _FACELETVBTEDSG26E>0e> 
00000000" 8F oD 0$: PUSHL A<<<SUBMITS_FACILITY@16>+4248>+4> 
000000006 00 - H FB Ht CALL ‘ P LIBSSIGNAL 
7 67 Ei : BBC #2, FLAGS, 26$ 
¢ 41 A2 g 50 BBS “5. ALE $5 
F8 AD oF PUSHAB FIND_RESULT 
000000006 8F 0D PUSHL #SUBMITS REMOINSF 
000000006 00 : re CALLS a3 LIBSSIGNAL 
9 24$:  BLBC. FLAGS, 25$ 
05 8 9 bs BISB2 #32" §(R2) 
1 BRB 26$ 
0S A2 40 8F 88 S$: BISB2 #64, 5(R2) 
2 DD 6$:  PUSHL 
000000006 00 gi FB 4 CALLS #1, eee 
7E 08 A2 5 MOVa 8(R2), =(SP) 
F AD oF 481 PUSHAB FIND RESULT 
00000000* ¢ DD 00486 PUSHL #<<<SUBMIT$_FACILITY@16>+4176>+2> 
000000006 5 FB 0048 CALLS #5, LIBSSIGRAL 
AC 6 é £0 004C3 27$: BBS a2. FLAGS 23s 
0D 41 A2 2 004¢ BBC #5. 65(R25, 28 
F8 AD SF O004CC PUSHAB FIND_RESULT 
o1 DD OO4CF PUSHL 
000000006 8F DD 00401 PUSHL #SUBMITS$_REMOINSF 
19 11 00407 BRB $ 
09 41 a2 06 €1 00409 28$: BBC a 5(R ), 298 
0 43 A2 EB O40 BLBS  67(R2), 29$ 
14 40 A2 0 a 4E C #5, 64(R2), 31S 
FR AD a ae? 29$: PUSHA FIND_RESULT 
000000006 Br DD 004 PUSHL #SUBMITS$_INVFILSPE 
000000006 00 3 Fe 4F2 30S CALLS #3, LIBSSIGNAL 
so gt HS ab ure sts: AO ites 
6B 002700%¢ SF 8 FF MOVL 43935982 (Q_ICURSOR) 
04 AB 14 AO 9E MOV ; (RO), 4¢Q TCURSOR) 
AB 7¢ CLROQ (Q_ICURSORY 
7E 7C CLRQ 0 _ = (SP) 
4 AE 9F 0051 PUSHAB 10SB 
0434 : F 0051 PUSHAB ITEM_BUFFER 
" F Be BOSTA nth nt§P) 
000000006 F 1 CALLS #7, SYSSSNDJBCW 
9 5 £8 BLBC STATUS er 
0 Oc AE OO 6 MOVL _‘10SB, STATUS 
16 3 E A BLBS STATUS, 33 
D D 328 PUSHL ATU 
F8 «AD OOF F PUSHAB FIND RESULT 
01 OD 2 PUSHL @# 
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a 
1 PRINT and SUBMIT Commands 16-Sep-1 28: AX-11 Bliss-32 V4.0-74 P 
-Sep- 209: LIUTL. 7 $ ( 
$beb00 2 Sep 1382 99 88 3 CLIUTL.SRCISUSMIT.B32 ; - g 
000000006 8F oD PUSHL #SUBMITS_ADDFIL : 
000000006 00 4 re A CALLS as LIBSSIGNAL : 
a WBE EE I fu ; 
03 67 a i 48 5$: BBC #2, FLAGS, 36$ ; 
58 0428 : E 4F 36$:  MOVAB ITEM_BUFFER, Q_ICURSOR : 
1¢ 4 E 4 BBC #1, FLAGS, $7$ ; 
; FF4C CD ba 8 CLRL_ JSM_DESC : 
"#50 «CD FF54 «CD ‘ g MOVAB ssH BUFFER JSM_DESC+4 ; 
00580084 : é MOVL #5767300, (@ ICORSOR)+ : 
FF54 CD SE A MOVAB JSM_BUFFER, TQ_ICURSOR)+ : 
FF4C 86D : 36F MOVAB JSM~DESC, (Q_ICURSOR)+ : 
8 p4 i 378: cLRL (0, TCURSOR) : 
14 AE OF 8 PUSHAB 1058 : 
0434 F 00578 PUSHAB ITEM_BUFFER : 
7 D O97 mMOVa = #9, _=(SP) : 
: D4 Be CLRL Os = (§P) : 
000000006 99 F 05 CALLS #7, SYSSSNDJBCW ; 
0D 388 VL «RO, STATUS : 
146 AE 9F 0058 PUS Exit BLOCK : 
000000006 00 o} Fe 0591 CALLS #1, SYSSCANEXH : 
7 E9 00598 BLBC = STAT 8$ : 
3 0c AF D 0598 MOVL  10SB, $TATUS ; 
15 3 E8 0059F BLBS § STATUS, 39$ ; 
ig et 3 
33 bd 0546 PUSHL STATUS : 
E D4 005 CLRL. = =( SP) : 
000000006 8F OD OO5AA PUSHL #SUBMIT$_CREJOB ; 
000000006 3 FB 9580 CALLS #3, LIBSSTOP : 
1B 3 i E| 0987 39S: BBC He FLAGS, 40$ ; 
rr i3 bane Peet AB ISM. DESC ; 
00010001 8F oD C3 PUSHL #655 : 
00000000" 8F oD 005¢ PUSHL  #<<<SUBMIT$_FACILITY@16>+4400>+1> : 
000000006 00 3 FB O5cr CALLS #3 t SSIGRAL F 
0 FC A? 10000000 BF £9 00506 408: BIL #268435456, EXIT_STATUS, RO ; 


3 Routine Size: 1504 bytes, Routine Base: CODE + 0360 
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: 


OUTINE GET_COMM_QUAL_CONTEXT: NOVALUE = 


FUNCTIONAL DESCRIPTION: 
This routine is gets the common qualifier context. 


INPUT —e 


PSTISIFE: 


NAME WN S(O OONOUNE 


'¢ 
i 
i 
i 
i 
! 
' 
! 
38 ! IMPLICIT INPUTS: 
144! } QUAL _CONTEXT - defined locally in main routine. 
0374 ! OUTPUT PARAMETERS: 
7 ! NONE 
0) ! 
9 975 ' IMPLICIT OUTPUTS: 
0 97 ' NONE 
ie 378 1 | ROUTINE VALUE 
ig 979 ! NONE 
74 0980 ! 
75 0981 ' SIDE EFFECTS: 
ave 098 ! NONE 
7 S38 ' 
378 984 leo 
880 3 BEGIN 
881 
$ 988 LOCAL 
989 BITMAP, 
990 STATUS; 


: Set up the context bitmap 


BI TMAP= LIBSM_CQF _CONFIRM OR LIBSM_COF tht et OR 
ti $M_ co [BEFORE OR LIBSM CaF SIN 
Ll 
Ll 


B OR 

BSM_CQF-CREATED OR LIBSA_COF MODIFIED OR 
BSM_CQF-EXPIRED OR LIBSM_ CaF “BACKUP OR 
BSM_COF“BYOWNER; 


: Get the common qualifier context 

IF NOT (STATUS = LIBSQUAL_FILE_PARSE (BITMAP, QUAL_CONTEXT)) 
SIGNAL_STOP (.STATUS); 

END; 


SSeee 
ooo 
333 


O00 
wn 
3 
-) 


33 
Ooooo 3 
$333 Be 
PR OPPIPUPIPPIPINIPOPIPIPIPINININININ a at a tt tt tt tt es 


BSLESE 


0000 00000 GET_COMR ~fuAt os mye 
ee a ee 
“Oe ie 0008 PUSHAB BITMAP 
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LIBSQUAL_FILE_PARSE 


j 
(encpesenccemmsaenes 


: 


SeSsSSES 


SS SSS SSS 


INNA ANIA POPININININPININID) 2 2 OO OO Os 


BDWNAUES WN $$ O OONAUSWN (OO CONOULS WI O0On 


OO00O0 


. 
° 
2 
° 
. 
° 
o 
° 
° 
. 
° 
° 
° 
© 
o 
. 
6 
° 
° 
7 
oe 
© 
o 
o 
o 
* 
° 
. 
° 
. 
o 
o 
o 
° 
° 
. 
a 
o 
° 
° 
o 
° 
e 
° 
e 
7 
e 
° 
& 
° 
° 
o 
° 
° 
© 
© 
° 
e 
° 
° 
. 
e 


3; Routine Size: 


a a at ad be 8 8 8s td dt tt 


nm nw wm ew nw eof fololololololololololo) 


WA 
PII) rt a a a ed dd ed 


WN "SO ODNOUESWN “OC OONOULSWN—O 


WANIAIRIRINININININPININID 2 2 PO OO Ow 


WDOODODOODODOODODOODDDOODO0O0O 


19 bytes, 
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ROUTINE EXIT HANDLER: NOVALUE= 


144 
i 


FUNCTIONAL DESCRIPTION: 
This routine 


INPUT PARAMETERS: 
Standard exit handler parameters (not used). 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


BEGIN 
& 


' 

' 

! 

' 

1 

i OUTPUT PARAMETERS: 
; NONE 
‘ 

' 

‘ 

i 

i 

} 


18-5 
1223 


98 12:59:35 


S an exit handler that is established as long as the 
rocess owns an open job. Its function is to delete the open job 
f an image exit should occur. 


SND JBC (FUNC=SJC$_CLOSE_DELETE) ; 


END; 


7E 
000000006 00 


Routine Base: 


0000 00000 EXIT_HANDLER: 
WORD 


7E ue 000% 


CODE + 0962 


SYSSSNDJBC 
Save nothing 
-(SP) 


~(SP) 
#8, =(SP) 
#7, SYSSSNDJBC 


—_———— 


AX-11 Bliss-32 V4.0-74 
CLIUTL.SRCJSUBMIT .B32; 


i 


FEESSSSEESANARANRRNNRE LE LOLOL ES OAL 


970 


Ww 
Oo 


COOoooeoeoo 
WAMU 


SSS 


WN O OONOAUNE WN" OOONAUSE 


oO 
o 


SeSEE 


RIPPIN SE SPRIPINIPDPINININPINPINYININUPINYIPIPUININPINIPINPIRIY ad dd nt a a nk nk i tk a at at ot ot ot ot 
Sento —t Cal 
be | = bes | 


SURFERS SENSU oer EES OEIE So 


NOUSWN OO 


COOOooooocoooooo 
0090908 SI NINN SIN NNN NO 


MEW —OWO0. 


Ssssss 
SSe& 


ee ee ee ae a ae a ee ee ae ee a ee ee a ae a ee a ae ca a eae a ee ae ee ee ee ce ee ce el a ee ee ed a ed ed 
So 
MEW — 


ooo 


ooo 
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-Sep-19 CLIUTL.SRCJSUBMIT.B32; 
ROUTINE HANDLER(SIG,MECH)= 
1+ 


i FUNCTIONAL DESCRIPTION: 
! This routine is the condition handler for the main routine. It 
saves the most severe condition as the exit status. 


INPUT PARAMETERS: 
Standard VMS condition handler parameters. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 


EXIT STATUS - Contains the most severe status encountered. 


ROUTINE VALUE: 
SS$_RESIGNAL 


SIDE EFFECTS: 
NONE 


$1G: REF BBLOCK, ' Signal parameters 
MECH: REF BBLOCK; ! Mechanism parameters 


SIGNAME = SIGCCHFSL_SIG_NAME] : BBLOCK; ! Name of signal 
: Change the facility code from SUBMIT to PRINT if required. 


jiLAGSCV_PRINT) 
Ano . SIGNAMECSTS$SV_FAC_NOJ EQL SUBMITS_FACILITY 
SIGNAMECSTS$V_FAC_NO] = PRINTS_FACILITY; 


: Save the most severe condition as the exit status. 


NOT .SIGNAME ! If an error signal 
AND ((.SIGNAMECSTSSV pevenity ! and severity is worse 
GTRU .EXIT_STATUSCSTSS$V_SEVERITY]) 
Aube OR .EXIT_STATUSCSTS$V_SEVERITY)) ! or no errors yet 
EXIT_STATUS = .SIGNAME; ! then save it for exit 


P 
1 
¢ 
P 
Ss 
P 
$ 
P 
C 
a 
T 
8 
T 
2 
é 


WE, ee sat Gen I-fx-ise O8:08:8) AGUA OAH 


; 9 1 SS$_RESIGNAL ' Resign 
338 1096 ¢ s§5- signal to get message 
0004 00000 HANDLER:.WORD Save R2 
52 0000" gf oe O09 MOV EXIT_STATUS, R2 
50 04 AC 4 C1 0000 ADDL3 #4, SIG, RO 
19 04 i E a1 LBC thos "38 {s 
000000006 8F 02 Ad §e g O08 cMPZV #9, n> 2(RO), #SUBMITS$_FACILITY 
02 Ad oc 00 000000006 BF F GootF INSV  &#PRINTS_FACILITY, #0, #12, 2(RO) 
le 60 €8 00029 1$: BLBS (RO) 
51 62 0 00 EF 0002C EXTZ2V #0, #3, EXIT _STATUS, R1 
51 60 03 0 ED 00031 CMP2V #0. #3, (RO)? R1 
03 1A 00036 BGTRU 
03 62 €9 000 BLBC EXIT_STATUS, 3$ 
62 60 bo 00038 3s: MOVL (RO)> EXIT_STATUS 
50 0918 8F 3¢ G003E $: MOVZWL #2328, RO ~ 
04 0004 RET 


; Routine Size: 68 bytes, Routine Base: CODE + 0975 


SupRIT, PRINT and SUBMIT Conmands 1B-Sen-19Re 00:28:51 yarett BLing32_v4.0-742 


; 995 1098 1 END 
; 996 1999 0 ELUDOM 


-EXTRN LIBSSIGNAL, LIBSSTOP 


; PSECT SUMMARY 
: Name Bytes Attributes 

: DATA 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC AL IGN(2) 
> CODE 2489 NOVEC.NOWRT. RD» EXE.NOSHR,. LCL. REL. CON.NOPIC.ALIGN(2) 


Library Statistics 


3 File Total idaded Percent Mapped Time 

; -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 107 1 581 00:00.9 
3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SUBMIT/OBJ=OBJ$:SUBMIT MSRC$:SUBMI T/UPDATE=(ENHS: SUBMIT) 
3; Size: 1625 ¢ e + 876 data bytes 

3; Run Time: 4 

3; Elapsed Time: al 

3 Lines/CPU Min: 2637 

3 ,osencet ret 19676 

: ype | Used: 440 pages 

3; Compilation Complete 


m005 AH-BT13A-SE | PMENT CORPORATION 
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